home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).adf / Wurf / S_Wurf (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  906b  |  52 lines
  1. Pi=3.14159
  2. G=9.81
  3.  
  4. SCREEN 1,640,512,1,4
  5. WINDOW 5,"s_Wurf",,16,1
  6. PALETTE 0,0,0,0
  7. PALETTE 1,0,1,0
  8.  
  9. WHILE 1
  10.   CLS
  11.   PRINT " Schiefer Wurf"
  12.   PRINT "==============="
  13.   PRINT 
  14.   INPUT "Winkel ab    ";Aa
  15.   INPUT "      bis    ";Ae
  16.   INPUT "Schrittweite ";Sw
  17.   INPUT "v0 [m/s]     ";V0
  18.   INPUT "Starthöhe [m]";Sh
  19.   INPUT "Sekunden [s] ";Sec
  20.   INPUT "Streckfaktor ";XStreckung
  21.   CLS
  22.   FOR a=Aa TO Ae STEP Sw
  23.       LOCATE 1,1
  24.       PRINT "Winkel : ";
  25.       PRINT USING "###.##";a;
  26.       PRINT "°",
  27.       Al=a*Pi/180
  28.       Vx0=V0*COS(Al)
  29.       Vy0=V0*SIN(Al)
  30.       X=0
  31.       Malen:
  32.           Streckung=640/Sec
  33.           T=X*Sec/640
  34.           S=Sh+Vy0*T-(1/2)*G*T^2
  35.           Y=512-XStreckung*S
  36.           Sx=T*Vx0
  37.           IF X=0 THEN
  38.               Xa=Streckung*Sx
  39.               Ya=Y
  40.           END IF
  41.           LINE (Xa,Ya)-(Streckung*Sx,Y),1
  42.           Xa=Streckung*Sx
  43.           Ya=Y
  44.           X=X+1
  45.       IF Y<=512 THEN Malen
  46.   NEXT a
  47.   LOCATE 1,1
  48.   PRINT "Ende. Taste drücken !"
  49.   WHILE INKEY$=""
  50.   WEND
  51. WEND
  52.